home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / yerk / mps231ss.hqx / Mops source / Asm Source / LBug < prev    next >
Text File  |  1992-09-12  |  270b  |  26 lines
  1. 0 value dlevel
  2.  
  3. : (val")
  4.     (lit-str) type  space
  5.     dup .h  cr  ;
  6.  
  7. : val"
  8.     dlevel
  9.     IF
  10.         postpone (val")  ,"
  11.     ELSE
  12.         word" drop
  13.     THEN  ;            immediate
  14.  
  15.  
  16. : (msg")
  17.     (lit-str)  type  cr  ;
  18.  
  19. : msg"
  20.     dlevel
  21.     IF
  22.         postpone (msg")  ,"
  23.     ELSE        
  24.         word" drop
  25.     THEN  ;            immediate
  26.